home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 2 / qbscreen.zip / SCREEN.DOC < prev    next >
Text File  |  1986-12-16  |  6KB  |  138 lines
  1.         SCREEN.BAS V1.0 (12/15/86)
  2.  
  3. AUTHOR: 
  4.  
  5.         BRIAN D SNYDER
  6.         DIGITAL DATA SYSTEMS
  7.         2104 BREMO ROAD, SUITE 1
  8.         RICHMOND, VA 23230
  9.         804-288-8552
  10.  
  11. RULES FOR USE OR DISTRIBUTION:
  12.  
  13.         NONE ! (AND I WON'T LOWER MYSELF TO ASK FOR $$$)
  14.  
  15. BACKGROUND:
  16.  
  17.         Before getting involved with programming on PC'S, I wrote
  18.         real-time order entry applications on the DEC PDP11's using
  19.         MACRO-11 for about 8 years. I had developed a library of screen
  20.         routines which was the basis for my program development.
  21.         In 1985 I went out and bought a TANDY 1000 (back then as a DEC
  22.         programmer it was hard to consider buying a I-B-M P-C !).
  23.         After writting some small programs using BASIC, I realized
  24.         that I really missed the screen routines that I had been
  25.         using on the DEC for many years. I knew enough about BASIC
  26.         to be dangerous, and decided to scrounge around compuserve
  27.         for some examples. I came across NELSON FORD'S INKEY.BAS
  28.         and used that as a base for my field input routine. Since
  29.         I must have downloaded hundreds of programs and routines
  30.         from boards across the country, I hope this is a start to
  31.         pay the PUBLIC DOMAIN system back !
  32.  
  33. REQUIREMENTS:
  34.  
  35.         QUICKBASIC
  36.  
  37. The QUICKBASIC $INCLUDE files have a lot of variables and arrays which are
  38. not needed here. In the next release I will edit these out and describe the
  39. ones stay. Sorry, I'm just *&^*ing BUSY !!!
  40. The following documentation does not cover all the routines that are included
  41. in DEMO.BAS and SCREEN.BAS. I hope to find time to upload a complete description
  42. of each routine SOON !
  43.  
  44. CALL:           DISPLAY (ARG1$(),ARG2$(),ARG3%)
  45.  
  46. DESCRIPTION:    DISPLAYS DATA OR HEADING ON SCREEN.
  47.                 IF ARG2$()="" THEN ARG4 IN ARG1$1() IS DISPLAYED ELSE
  48.                    DATA IN ARG2$() IS DISPLAYED.
  49.  
  50. ARGUMENTS:      ARG1$() = ARRAY ELEMENT CONTAINING A 4 ARGUMENT STRING
  51.  
  52.                           ARG1 = LINE # (ZERO FOR NO LINE POSITIONING)
  53.                           ARG2 = COLUMN #
  54.                           ARG3 = FIELD DEFINITION
  55.                                  REV   = REVERSE VIDIO
  56.                                  BLINK = BLINK
  57.                                  HIGH  = HIGH INTENSITY
  58.  
  59.  
  60.                                  IF ARG2$()<>"" THEN
  61.  
  62.                                  ALP   = ALPHA
  63.                                  NUM   = NUMERIC
  64.                                  DEC   = DECIMAL
  65.  
  66.                                  IF ARG2$() ="" THEN
  67.  
  68.                           ARG4 = ASCII STRING WHICH IS DISPLAYED
  69.  
  70.                 ARG2$() = ARRAY ELEMENT CONTAINING OPTIONAL DATA.
  71.                 ARG3%   = NUMBER OF LINES TO ADD TO ARG1
  72.                           (ARG3% NORMALLY EQUALS ZERO, I SET THIS UP SO
  73.                            I COULD DISPLAY MULTIPLE LINES WITHOUT CHANGING
  74.                            THE ORIGINAL LINE VALUE IN ARG1 OF ARG1$(). )
  75.  
  76. CALL:           ACCEPT (ARG1$(),ARG2$)
  77.  
  78. DESCRIPTION:    ACCEPTS DATA.
  79.  
  80. ARGUMENTS:      ARG1$() = ARRAY ELEMENT CONTAINING A 6 ARGUMENT STRING
  81.  
  82.                           ARG1 = LINE #
  83.                           ARG2 = COLUMN #
  84.                           ARG3 = FIELD DEFINITION
  85.                                  REV   = REVERSE VIDIO
  86.  
  87.                                  ALP   = ALPHA
  88.                                  NUM   = NUMERIC
  89.                                  DEC   = DECIMAL
  90.  
  91.                                  LCK   = "LOCKS" (SKIPS) INPUT FOR THIS FIELD
  92.                                           THIS ALLOWS YOU TO CHANGE WHAT FIELDS
  93.                                           ARE PROMPTED FOR BY JUST CHANGING THE
  94.                                           ARG1$() STRING FOR EACH FIELD.
  95.  
  96.                                  CAP   = CHANGES ANY LOWER CASE INPUT TO UPPER
  97.  
  98.                                  NODEF = NO NUM OR DEC DEFAULT (NO 0 OR 0.00 )
  99.                                           (IF RETURN IS PRESSED WITH NO INPUT
  100.                                           NO VALUE WILL BE LOADED INTO THE
  101.                                           OUTPUT FIELD.)
  102.  
  103.                           ARG4 = FORMATTED DATA LENGTH
  104.  
  105.                                  (IF DEC THEN ARG4 WILL BE THE FIELD LENGTH
  106.                                  INCLUDING THE DECIMAL POINT,
  107.                                  BUT THE ACTUAL DECIMAL POINT "." WILL
  108.                                  NOT BE RETURNED IN THE OUTPUT FIELD, THERE
  109.                                  WILL BE AN ASSUMED DECIMAL POINT.
  110.  
  111.                                  EXAMPLE OF DECIMAL TYPE INPUT:
  112.  
  113.                                  INP$(1)="06,02,NUM!DEC,9,ACCOUNT"
  114.  
  115.                                  ( 1    [RETURN] = "     100" )
  116.                                  ( 1.5  [RETURN] = "     150" )
  117.                                  ( 1.50 [RETURN] = "     150" )
  118.                                  ( .50  [RETURN] = "      50" )
  119.                                  (      [RETURN] = "     000" ) )
  120.  
  121.                           ARG5 = (EDIT SWITCH)
  122.  
  123.                                   YES = CAN OMITT
  124.                                   NO  = CAN'T OMITT
  125.  
  126.                                   (THIS CAN BE OVERRIDDEN BY SETTING
  127.                                    EDITMODE = YES
  128.                                    OR
  129.                                    EDITMODE = NO
  130.                                    IN MAIN LINE CODE.)
  131.  
  132.                           ARG5 = HELP KEY
  133.                                  (SOMETHING I USE TO KEY ON HELP MESSAGES,
  134.                                   WHICH IS NOT INCLUDED HERE.)
  135.  
  136.                 ARG2$   = STRING VARIABLE USED FOR OUTPUT DATA FROM ACCEPT.
  137.  
  138.